subroutine fae_t1am_fem(fae, t1, fme, icore, fact)
!
use mod_orbit
use mod_ioff 
implicit none
!
real*8, intent(in) :: fact
real*4, intent(in) :: fae(*)
real*4, intent(in) :: fme(*)
!
real*4, intent(inout) :: t1(*), icore(*)
!
integer :: i, j, a, b, nsize
real*8, external :: dnrm2
!this is to do fae = fae -0.5*t1(a,m)*fme(e,m)
call VpqmnVrsmn_to_Vpqrs(t1(ifvo(1)), fme(ifvo(1)), 1, 1, popa, zorb, 1, & 
                 vrta, zorb, 1, vrta, zorb, 1, fae(ifvv(1)), 1, fact, 1.d0)
call VpqmnVrsmn_to_Vpqrs(t1(ifvo(2)), fme(ifvo(2)), 1, 1, popb, zorb, 1, & 
                 vrtb, zorb, 1, vrtb, zorb, 1, fae(ifvv(2)), 1, fact, 1.d0)
!
return
end
